home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / hardware / inoutbrd.lha / in-out-board / amos_sources / LCD.Amos / LCD.amosSourceCode
AMOS Source Code  |  1995-11-28  |  4KB  |  132 lines
  1. '*************************************************************************** 
  2. '*                                                                         * 
  3. '*                                LCD.Amos                                 * 
  4. '*                                                                         * 
  5. '*                     ï¿½ 1993,94,95 Andreas Heinrich                       *   
  6. '*                                                                         * 
  7. '*             Dieses Programm steuert ein LCD-Display an und              *   
  8. '*          gibt die ASCII-Codes von 0-255 an das Display weiter.          * 
  9. '*                                                                         * 
  10. '*************************************************************************** 
  11. '  A=Adresse 
  12. '  N=Wert
  13. '  U=1 = Neue Zeile
  14. '  T=Positionsz�hler 
  15. '  Procedure Daten = Datenwort wird ï¿½ber Port 3 an das LCD-Display geschickt 
  16. '  Procedure Kommando = Steuerwort wird gesendet 
  17. '
  18.    Global A,N,U,T
  19. '
  20. '**************************** Init f�r In_Out_Board ************************ 
  21. '
  22.    INIT
  23. '
  24. '********************** Init Kommandos f�r LCD - Display ******************* 
  25. '
  26. N=$38 : Rem             Display initialisieren 
  27. KOMMANDO
  28. N=$1 : Rem              Anzeige l�schen 
  29. KOMMANDO
  30. Wait 1 : Rem            Mu� hier 1/50 Sekunde warten
  31. '
  32. N=$E : Rem              Schreibmarke einschalten
  33. KOMMANDO
  34. N=$6 : Rem              Cursor an   
  35. KOMMANDO
  36. '
  37. '**************************** Demo f�r die Ausgabe **************************  
  38. '
  39. '      ( Ab hier k�nnen dann eigene Programme eingef�gt werden.) 
  40. '
  41. '          Gibt die Werte von 0 bis 255 auf die Anzeige  
  42. '          Nicht jedem Wert ist auch ein Zeichen zugeordnet
  43. NOCH_EINMAL:
  44. T=1
  45. For B=0 To 255
  46.  N=B
  47.   DATEN
  48.    Wait 5 : Rem   Hier ist kleine Warteschleife, damit man den Cursor sieht. 
  49.      Inc T
  50. '*************** Diese Routine l�scht nach 1 Sekunde das Display ************
  51. '
  52.  If T=17
  53.    U=1
  54.     N=$C0
  55.   KOMMANDO
  56. End If 
  57. '
  58. If T=33 and U=1
  59.   U=0
  60.     T=1
  61.        Wait 50
  62.      N=$1
  63.    KOMMANDO
  64. End If 
  65. '
  66. '****************************************************************************
  67. '
  68. Next B
  69. Goto NOCH_EINMAL : Rem   Und noch einmal nach NOCH_EINMAL 
  70. '
  71. '********************************* Ende *************************************
  72. '
  73. '******************************* Proceduren *********************************
  74. '
  75. Procedure SCHREIBEN
  76. '
  77. Poke 12570624,248+A : Rem  Adresse A selektieren 
  78. Poke 12575489,255 : Rem    Port als Ausgang schalten 
  79. Poke 12574977,N : Rem      Wert N schreiben
  80. Poke 12570624,255 : Rem    Ready LED einschalten 
  81. '
  82. End Proc
  83. '
  84. Procedure INIT
  85. '
  86. '******************** Nach dem Einschalten aufrufen ***********************    
  87. '
  88. Poke 12571136,199 : Rem    Busy,P-aus und SEL=Bitmuster Ausgabe
  89. Poke 12570624,255 : Rem    Adresse 7 selektieren (Ready LED ein) 
  90. Poke 12575489,0 : Rem      Port als Eingang schalten   
  91. '
  92. '**************************************************************************
  93. End Proc
  94. '
  95. Procedure KOMMANDO
  96. '
  97. A=3 : Rem Steuerwort an Port 3 senden  
  98. SCHREIBEN
  99. '
  100. '******************** Umschalten nach Steuerwort **************************
  101. '                          LCD-Freigabe usw. 
  102. A=4
  103. N=3
  104. SCHREIBEN
  105. '
  106. N=1
  107. SCHREIBEN
  108. '
  109. N=2
  110. SCHREIBEN
  111. '
  112. N=3
  113. SCHREIBEN
  114. '
  115. '**************************************************************************
  116. End Proc
  117. '
  118. Procedure DATEN
  119. A=3 : Rem Datenwort nach Port 3  
  120. SCHREIBEN
  121. '
  122. '*************************** LCD-Freigabe ********************************   
  123. '
  124. A=4
  125. N=2
  126. SCHREIBEN
  127. '  
  128. N=3
  129. SCHREIBEN
  130. '************************************************************************* 
  131. End Proc
  132. '